home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / programm / ds0257 / lib.exe / ASSIGN.LIB < prev    next >
Text File  |  1992-02-02  |  993b  |  89 lines

  1. #IF !LIB4A86
  2. #ELSE
  3. #IF !INTERN_LIB4A86_S
  4. INTERN_LIB4A86_S EQU 01
  5. JMP START
  6. #ENDIF
  7. #ENDIF
  8. ASSIGN? MACRO
  9. MOV AX,0600H
  10. INT 02FH
  11. CMP AL,0FFH
  12. #EM
  13. ASSIGNLW:
  14. PUSH ES,BX
  15. CALL INTERN_GETASSIGNTABLE
  16. JC >L8
  17. MOV AX,BX
  18. XOR BH,BH
  19. XCHG ES:[BX+0102H],AH
  20. JMP >L9
  21. ASSIGNLW?:
  22. PUSH ES,BX
  23. MOV AH,AL
  24. CALL INTERN_GETASSIGNTABLE
  25. JC >L8
  26. XOR BH,BH
  27. MOV AL,ES:[BX+0102H]
  28. CMP AL,BL
  29. CLC
  30. JMP >L9
  31. L8:
  32. STC
  33. L9:
  34. POP BX,ES
  35. RET
  36. INTERN_GETASSIGNTABLE:
  37. MOV BX,AX
  38. ASSIGN?
  39. STC
  40. JNZ >L8
  41. INC AL
  42. INC AL
  43. OR BL,BL
  44. JZ >L8
  45. CMP BL,26XD
  46. JA >L8
  47. INC AL
  48. OR BH,BH
  49. JZ >L8
  50. CMP BH,26XD
  51. JA >L8
  52. MOV AX,0601H
  53. INT 02FH
  54. CLC
  55. RET
  56. L8:
  57. STC
  58. RET
  59. #IF !INTERN_CMARK0
  60. INTERN_CMARK0 EQU 01H
  61. INTERN_CMARK1:
  62. PUSH BP
  63. MOV BP,SP
  64. MOV BX,06H
  65. SUB CH,[BP+SI]
  66. SUB AH,[BX+SI]
  67. DEC SP
  68. DEC CX
  69. INC DX
  70. XOR AL,041H
  71. CMP B[02820H],DH
  72. INC BX
  73. SUB W[BX+SI],SP
  74. INC DX
  75. CS AND B[BP+DI+043H],DL
  76. DEC AX
  77. INC BP
  78. DEC BP
  79. DEC BP
  80. INC BP
  81. PUSH DX
  82. AND B[BP+SI],CH
  83. SUB CH,[BP+SI]
  84. POP DX
  85. MOV SP,BP
  86. POP BP
  87. RET
  88. #ENDIF
  89.